 1 .
 2 .
 3 .
 4 .
 5 .INVISIBLE WAR
 6 .BY JAMES WINN
 120 clear ;FC=7;BC=0;NT=0
 130 C=0;D=0;H=0;I=0
 140 print "DIFFICULTY
 150 print "1. EASY";print "2. MEDIUM";print "3. HARD
 180 K=KN(1)div 100+2
 190 CX=-40;CY=-20;print K
 200 if TR(1)goto 220
 210 goto 180
 220 E=K;clear 
 230 print "HOW MANY LASER BLASTS";print "FOR YOUR SHIP
 240 J=KN(1)div 3+57
 250 CX=-40;CY=-20;print J
 255 for N=1to 400;next N
 260 if TR(1)goto 280
 270 goto 240
 280 F=J;clear 
 290 A=rnd (76)-38
 300 B=rnd (76)-38
 310 A=A+JY(1)mul 10
 315 gosub 710
 320 if A>38A=38
 330 if A<-33A=-33
 340 if B<-33B=-33
 370 if B>A-10if B<A+10goto 525
 380 if JY(1)=0goto 400
 390 box -60,A,11,1,3;box -63,A,2,7,3;box -60,A,11,7,2
 400 if TR(1)goto 440
 410 goto 310
 440 box -60,A,11,1,3;box -63,A,2,7,3
 460 line -50,A,4;line 60,A,3
 470 &(21)=255;&(23)=255
 480 line -50,A,4;line 60,A,3
 485 box -60,A,11,7,2
 490 &(21)=0;&(23)=0;I=I+1
 500 if A>B-10if A<B+10B=A;H=1;gosub 700;gosub 800
 505 if I=Fgosub 700;goto 910
 508 if I+10=Fgosub 700;gosub 1000
 510 if TR(1)goto 510
 520 goto 300
 525 &(9)=33;FC=127;&(2)=7;&(3)=7
 530 box 60,B,11,1,3;box 60,B,1,5,3
 550 line 50,B,4;line -60,B,3
 560 &(21)=255;&(23)=255
 570 line 50,B,4;line -60,B,3
 575 box 60,B,11,5,2
 580 &(21)=0;&(23)=0
 590 if E=1goto 650
 600 if E=2goto 630
 610 if B>A-7if B<A+7gosub 700;gosub 800
 630 if B>A-5if B<A+5gosub 700;gosub 800
 650 if B>A-3if B<A+3gosub 700;gosub 800
 655 if TR(1)gosub 710;goto 440
 660 goto 300
 700 &(9)=50;&(2)=0;&(3)=0;FC=7;return 
 710 &(9)=71;FC=7;&(0)=0;&(1)=0;&(2)=57;&(3)=57;return 
 800 if H=1goto 805
 803 P=-60;Q=A;goto 810
 805 P=60;Q=B
 810 if Q>33Q=33
 812 if Q<-34Q=-34
 815 &(21)=255;&(23)=255;for L=1to 15;BC=7;BC=0;FC=90;box P,Q,L,L,1;next L
 820 for L=1to 13step 3;box P,Q,L,L,2;next L;&(21)=0;&(23)=0;clear 
 840 if H=1C=C+1;goto 900
 850 D=D+1
 860 for N=1to 200;next N
 900 H=0;B=50;clear ;return 
 910 FC=7;CX=-62;CY=40;print C,D
 912 CX=-20;CY=0;print "GAME OVER
 915 CY=-35;print "  TO PLAY PUSH JOYSTICK
 917 for N=1to 1000;next N
 920 if JY(1)run 
 930 goto 920
1000 clear ;NT=0;FC=126;BC=0
1010 CX=-60;CY=35;print "10 LASER BLASTS LEFT
1020 for L=1to 10
1030 CX=-30;CY=0;print "CRITICAL!!!
1040 X=-30;Y=0;box X,Y,90,8,2
1050 &(17)=12;&(22)=250
1060 for M=1to 100
1070 next M
1080 &(17)=0;&(22)=0
1090 next L;clear ;return 
:return ;NT=3;run 